home *** CD-ROM | disk | FTP | other *** search
/ Alles Voor Internet / Tout Pour Internet / alles voor internet.iso / MacInternet™ / Modem / doubledialscript.txt < prev    next >
Internet Message Format  |  1994-06-21  |  3KB
  1. From: "Alejandro Gidi Ch." <lg275887@hp9k.lag.itesm.mx>
  2. Posted-Date: Tue, 12 Apr 94 15:27:29 MDT
  3. Subject: A contribution...
  4. To: mike@mac.archive.umich.edu
  5. Date: Tue, 12 Apr 94 15:27:29 MDT
  6.  
  7. Hola desde Mexico!
  8. Hello from Mexico..
  9.  
  10.  
  11.  
  12. Mike...
  13.     Hello again.. I thought, that it was unfair that I dowloaded many files, 
  14.  from your archive.. and never uploaded one... I don't have my own files.. 
  15. I' don't know how to program (yet) But I buil't this MAcKNOWLEDGE Script
  16. That dials 2 number alternately, It may not sound like much.. but the 
  17. default script didn't do that...  I'm almost sure 99.9% that it works ok.
  18. I fixed a bug that reseted the modem after hookup. hisss..
  19.  
  20. If you think it is ok... put it on your archive.. if you don't hink so, don't.
  21. no prob..    
  22.  
  23. It just needs to be copy/pasted onto a clean Script Window.
  24.  
  25. PD. I'm working on one that gets mail from HP-UX Mail.. but still doesn't work.
  26.      If you are interested let me know.. I will also write it for WhiteKnight.
  27.  
  28. Great work you do on mac.archive.. Congratulations!!!
  29.  
  30. '**********************
  31. 'Communication Settings
  32. '**********************
  33. CommC.Bit8% = NO%
  34. CommC.BPS% = 9600
  35. CommC.BSToDel% = NO%
  36. CommC.CharDelay% = 0
  37. CommC.Chars% = 80
  38. CommC.CharSet% = 0
  39. CommC.CTS% = NO%
  40. CommC.CurBlink% = YES%
  41. CommC.CurShape% = 0
  42. CommC.DBits% = 8
  43. CommC.DTR% = NO%
  44. CommC.G0% = 3
  45. CommC.G1% = 3
  46. CommC.LFCRIn% = NO%
  47. CommC.LFCROut% = NO%
  48. CommC.LineDelay% = 0
  49. CommC.Lines% = 24
  50. CommC.LocEcho% = NO%
  51. CommC.Parity% = 0
  52. CommC.Port = "Modem"
  53. CommC.Protocol% = 0
  54. CommC.ProtOpt% = 2
  55. CommC.RemEcho% = NO%
  56. CommC.SBits% = 10
  57. CommC.Term% = 2
  58. CommC.Wrap% = 80
  59. CommC.XOnXOff% = YES%
  60. '+**************************+
  61. '|Tiene terminal tipo vt100 |
  62. '+**************************+
  63. '*********************
  64. ' Empieza el Script  |
  65. '*********************
  66. CLRSCR
  67. SHOW CommWindow
  68. show statusbar
  69.  
  70. getmodemFile:
  71.     modemFile = @modemFile
  72.     IF modemFile = "" THEN modemFile = "Hayes Modem.i" ELSE *
  73.         IF NOT Exists%(modemFile) THEN *
  74.         DO FILE "getmodemFile.i" : *
  75.         GOTO getmodemFile
  76.  
  77. IF Service <> "" THEN DOLOGOFF
  78. HOLD ON
  79. CURSOR WATCH
  80. TIMER RESET
  81. dialIt:
  82.     Message = "HereGoesYourTelNumber#1"
  83.     DO FILE modemFile "Dial"
  84.     IF (Message <> "") AND (Message <> "Canceled") AND @Redial% THEN *
  85.         GOTO dialItdos *
  86.     ELSE *
  87.         IF Message <> "" THEN *
  88.             DISPLAY "Unable to connect: "& Message
  89.     CURSOR RESET
  90.         END
  91. dialItdos:
  92.     Message = "HereGoesYourTelNumber#2"
  93.     DO FILE modemFile "Dial"
  94.     IF (Message <> "") AND (Message <> "Canceled") AND @Redial% THEN *
  95.         GOTO dialIt *
  96.     CURSOR RESET
  97.     END
  98.  
  99.  
  100. --
  101. +------------------------------------------------------------------------------+
  102. |  Atte:                                              |  MacManiac             |
  103. |       Alejandro Gidi Ch.                            | MMMMMM  MMMMMM         |
  104. |                              IRC= ALEX-             | MMMMMMMMMMMMMM         |
  105. |     E-Mail at lg275887@hp9k.lag.itesm.mx            | MMMMM    MMMMM         |
  106. |                                                     | MMMM      MMMMACINTOSH |
  107. |Tel Mex.:(17)202370 & 200960 Fax (17)203790 & 211706 |                        |
  108. +------------------------------------------------------------------------------+
  109.